Sub Main()	dim b as integer	dim x as integer	dim i as integer		msgbox("Do Loop Test")	x = 3	b = 3		do while(((b <= x) || (x > 5)) && (x < 10))		msgbox("x=" & x)		x = x + 1	loop	end sub